home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / zkuste / xptools / install / Xsetup / setup.exe / {app} / plugins / XQ MSOXP Word Locked File Editing.xpl < prev    next >
Text File  |  2002-07-31  |  2KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office XP\Word"
  5. "NAME"="Multi-User Edit"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable Multi-User Edit"
  9. "DESCRIPTION 1"="Word XP has a new feature called "Locked File Edit", sometimes also called as "Multi-user Editing". This feature allows the user to open a file opened by another user (the file is "locked" in this case) make changes to it and later on merge it with the locked file."
  10. "DESCRIPTION 2"="Basically, this is a nice feature, but sometimes it also creates big confusion among the users since it is easily possible for the second user to erase all changes the first user has made."
  11. "DESCRIPTION 3"="Or even worse, if three or more users try to open the locked file and all changing this one file..."
  12. "AUTHOR"="Xteq Systems (CptSiskoX)"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  15. "COMMENT 1"="Visit http://www.xteq.com/"
  16.  
  17.  
  18.  
  19. 'Declaration of some constants
  20. sV1="HKCU\Software\Microsoft\Office\10.0\Word\Options\NoPromptToForkDocuments" 'DW
  21.  
  22. sPCheck="HKCU\Software\Microsoft\Office\10.0\Word\"
  23. Sub Plugin_Initialize 
  24. if RegPathExists(sPCheck) then
  25.    i=RegReadValue(sV1)
  26.    if i=1 then SetUIElement 1,true
  27. else
  28.    Disable()
  29. end if
  30. END SUB
  31.  
  32. 'Called when the Plugin should validate the Data the user has entered
  33. SUB Plugin_CheckData(ElementIndex)
  34. END SUB
  35.  
  36. 'Called when the Plugin should apply the changes
  37. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  b=GetUIElement(1)
  39.  if b=true then
  40.     Call RegWriteValue(sV1,1,2)
  41.  else
  42.     Call RegWriteValue(sV1,0,2)
  43.  end if
  44.  
  45.  
  46.  
  47. END SUB
  48.  
  49. 'Called when the Plugin is about to be removed from memory
  50. SUB Plugin_Terminate
  51. END SUB
  52.